Visual Basic 6 - [Client/Server]Ricevere informazioni text dal client con un select case...

Forum - Visual Basic 6 - [Client/Server]Ricevere informazioni text dal client con un select case...

luca94 (Normal User)
Pro

Messaggi: 71
Iscritto: 07/05/2008

Postato alle 14:44
Domenica, 14/12/2008

Salve a tutti,
ho creato in vb un client ed un server. Nel Client c'è una textbox e due commandbutton.In uno c'è scritto "invia textbox" che invia il contenuto della textbox al server e nell' altro c'è scritto "Cmd" che fa aprire il promt dal server.
Allora...per inviare il contenuto della textbox ho inserito questa stringa:

Codice sorgente - presumibilmente Visual Basic 6

Dim e as string
e = text1.text
Winsock1.SenData e

Per inviare l' informazione che fa aprite il promt ho inserito questo:

Codice sorgente - presumibilmente Plain Text

Winsock1.SenData "Info"

Ma il problema sta nell' interpretazione dei dati da parte del server. Nel Data_Arrival del server ho inserito queste stringhe:

Codice sorgente - presumibilmente VB.NET

Dim d as string
Winsock.1getdata d
Select case d
Case "Info"
Shell("C:\windows\system32\cmd.exe")
Case "e"
MsgBox e
End Select

Ma purtroppo così viene interpretata male o inviata male la variabile "e" che contiene il contenuto della textbox. Come mai?
Potete risolvermi il problema??
Grazie in anticipo a tutti!! :k:

Ultima modifica effettuata da luca94 il 14/12/2008 alle 14:47

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 15:14
Domenica, 14/12/2008

due errori grossolani.
il primo e` che hai messo la variabile tra virgolette.
questo trasforma cio che hai scritto da
se e` uguale alla variabile e
a
se e` uguale alla lettera "e"

ma l'errore piu contorto e` che la variabile e il server non la conosce.
quindi il select case su d non potra` mai essere uguale ad e perche e` rimane sempre una variabile vuota.
quella che si riempe e` la variabile e del client mentre quella del server non cambaia mai.